home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.markedit < prev    next >
Text File  |  2000-04-19  |  994b  |  46 lines
  1. G4C
  2. ; $VER: func.markedit Rev.015 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 255 75 "Verzeichnismarkierung bearbeiten"
  4. WinType 11010000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. WinOnMouse 5 5
  8.  
  9. xOnLoad
  10.     lvuse HTMLEXT 2
  11.     EXTRACT %DirName CLEAN beschreib
  12.     Update #This 1 $beschreib
  13.     EXTRACT %DirPath CLEAN pfad
  14.     Update #This 2 $pfad
  15.     GuiOpen #This
  16.  
  17. xTextIn 50 5 200 20 "Name" beschreib "" 255
  18.     GadID 1
  19.     GadFont "xHelvetica.font" "11" 000
  20.  
  21. xTextIn 50 25 200 20 "Pfad" pfad "" 255
  22.     GadID 2
  23.     GadFont "xHelvetica.font" "11" 000
  24.  
  25. xButton 5 50 70 20 "_1 Ändern"
  26.     GadFont "xHelvetica.font" "11" 000
  27.     GadKey "1"
  28.     lvuse HTMLEXT 2
  29.     lvdel -1
  30.     lvadd ''
  31.     %DirName = $beschreib
  32.     %DirPath = $pfad
  33.     lvsort %DirPath
  34.     if $*MODUS = "S"
  35.         lvsave $*SITEPROJ
  36.     elseif $*MODUS = "D"
  37.         lvsave $*SITEPROJDATA
  38.     endif
  39.     GuiQuit #This
  40.  
  41. xButton 180 50 70 20 "[_X] Abbrechen"
  42.     GadFont "xHelvetica.font" "11" 000
  43.     GadKey "x"
  44.     GuiQuit #This
  45.  
  46.